home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / biz / dopus / mpegau_player.lha / mpega_player / Install < prev    next >
Encoding:
Text File  |  1997-08-24  |  15.8 KB  |  461 lines
  1. ;***************************************************************************
  2. ; * $VER: Install MPEG Audioplayer Scripte for DirOpus5 2.1 (08-27-97)
  3. ; * Script written by Eckhard Ludwig
  4. ;***************************************************************************
  5.  
  6. (set current_version "2.1")
  7. (set lng @language)
  8. (complete 0)
  9.  
  10. ;****************************************************************************
  11.  
  12. (set #intro1 (cat "MPEG Audio Player " current_version "\n************************\n© 1997, Eckhard Ludwig"))
  13.  
  14. ;****************************************************************************
  15.  
  16.  
  17. ;***************************************************************************
  18. ; deutsche Texte                               *****************************
  19. ;***************************************************************************
  20.  
  21. (IF (= lng "deutsch")
  22. (
  23. (set Opt 1)
  24. (set BOpt 0)
  25. (set INFO               "Diese Installation ergänzt Directory Opus ab V5.5 um die Funktionen eines komfortablen MPEG-Audio Spielers, und installiert Filetypen zum Spielen von MPEG-Samples per Doppelklick.\n\nUnterstützt werden Amiga-Audio Normal und über AHI-Treiber in 14bit, sämtliche MPEG-Karten (Melody, Peggy-Plus, CD32/FMV)\nund Soundkarten mit AHI-Treiber (Prelude, Toccata, Delfina usw.).")
  26. (set GuidePrompt        "\n\nFür die Programme existiert eine umfangreiche deutschsprachige Anleitung im AmigaGuide®-Format.\n\nDiese können sie jetzt in ein beliebiges Verzeichnis kopieren, wobei eine eigene Schublade (Docs) angelegt wird.")
  27. (set GuideDirPrompt     "Wohin soll die Schublade Docs, mit der deutschen Anleitung kopiert werden?")
  28. (set CDPrefsPrompt      "\n\nUm die Player auf Ihre Amigahardware und verschiedene Soundkarten konfigurieren zu können, existiert ein entsprechendes Konfigurations-Programm.\n\nDieses können sie jetzt in ein beliebiges Verzeichnis kopieren, empfohlen ist das Prefs Verzeichnis der Workbench.")
  29. (set CDPrefsDirPrompt     "Wohin soll das Konfigurations-Programm Player-Setup kopiert werden?")
  30. (set Installprompt      "Bitte wählen Sie für die Player Ihre bevorzugte(n) Sprachversion(en).")
  31. (set Opus5DirPrompt     "Bitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde!")
  32. (set Opus5Message       "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\n\nIst DirectoryOpus5 korrekt installiert wurden ?\n\nBitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde oder installieren sie DirectoryOpus5 zuerst !")
  33. (set Opus5Help          "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\nIst DirectoryOpus5 korrekt installiert wurden ?\nBitte installieren sie DirectoryOpus5 zuerst !")
  34. (set Deinstallprompt    "Es ist bereits eine neuere Version von PlayerMP2.dopus5 installiert!\nSoll diese wirklich ersetzt werden ?")
  35. (set ArexxDirPrompt     "Die Programme sollten in das Arexx-Verzeichnis von DirOpus5 installiert werden!\nBitte wählen Sie eine Schublade für die Player-Scripte !")
  36. (set RexxPrompt        "\nDie Skript-Sprache ARexx ist im Lieferumfang von AmigaDOS enthalten, jedoch nicht verfügbar, bevor Sie nicht das Programm 'RexxMast' aufgerufen haben.\nEs wird empfohlen, ARexx immer zu starten.\nWenn Sie ARexx automatisch starten lassen möchten, klicken Sie auf 'Weiter', um ARexx von Ihrer 'User-Startup' aus starten zu lassen.")
  37. (set PlayerCopy2Prompt  "Kopiere Sample Player ...")
  38. (set LocaleCopyPrompt   "Kopiere Cataloge ...")
  39. (set ButtonCopyPrompt   "Kopiere Knopfbank ...")
  40. (set FiletypesPrompt    "Kopiere Opus5-Filetypes ...")
  41. (set GuideCopyPrompt    "Kopiere Anleitung und Bilder...")
  42. (set CDPrefsCopyPrompt    "Kopiere Preferences ...")
  43. (set ToolsCopyPrompt    "Kopiere Tools ...")
  44. (set #t_oldinstaller    (cat
  45.             "Die benutzte Version des Programmes Installer ist leider zu alt!"
  46.             " Benötigt wird Version 43.3 oder neuer. Die Konfiguration kann"
  47.             " fortgesetzt werden, es können allerdings Fehler auftreten!"
  48.     ))
  49. (set #t_oldinstallerhelp (cat
  50.             " Die aktuelle Version des Installers findest du im AMINET im util/misc Directory."
  51.             " Der aktuelle File Name ist \"Installer-43_3.lha\":\n"
  52.             " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  53.     ))
  54.  
  55. (set OpusEdit           "Das gewählte Playerverzeichnis entspricht nicht dem Standard (Dopus5:Arexx)!\n Die Arexx-Pfade in den Button und Filetypes müssen entsprechend ediert werden!")
  56. (SET #exitMsg           "Zum Spielen von MPEG Audio Samples:\n\nSetzen sie über das Programm Player-Setup ihre Soundhardware und die Pfade zu den Programmen.\nStarten Sie Directory Opus5 neu. Wählen Sie im Menü 'Knöpfe/Laden/' die Datei 'mpegplayer_default' an. Spielen sie Samples über den Knopf 'MPEG Sound Player' oder spielen sie Samples direkt per Doppelklick.\n\nViel Spaß mit den Scripten\nfür Directory Opus5.5+ wünscht\nEckhard Ludwig")
  57. )
  58.  
  59. ;******************************************************************************************************
  60. ; english
  61.  
  62. (
  63. (set Opt 2)
  64. (set BOpt 1)
  65.  
  66. (set INFO               "This script installs a Directory Opus 5.5+ GUI for the MPEGA player by Stephane TAVENARD and for MPEG-Cards and Soundcards with AHI-Drivers, and Opus-filetypes for Layer 2 and Layer 3 to play over doubleclick.")
  67. (set GuidePrompt        "\nFor programmes exists guide, sorry only german (AmigGuide®-Format), and english readme-datei.")
  68. (set GuideDirPrompt     "Please select destination, for the guide drawer (Docs).")
  69. (set CDPrefsPrompt      "\n\nFor Select Soundcards and Paths exists Player-Setup.\nPlease choose the drawer for install the preferences (Default SYS:Prefs).")
  70. (set CDPrefsDirPrompt     "Please select destination, for the preferences program (Player-Setup).")
  71. (set InstallPrompt      "Which of the following locale should be installed ?\nItems marked as (n/a) are not available in the current installation archive !")
  72. (set Opus5DirPrompt     "DirectoryOpus not found ?\nPlease select path to DirectoryOpus !")
  73. (set Opus5Message       "Is DirectoryOpus correct installed ?\nPlease select drawer to DirectoryOpus5 or install DirectoryOpus5 first !")
  74. (set Opus5Help          "Is DirectoryOpus correct installed ?\nPlease install DirectoryOpus5 first !")
  75. (set Deinstallprompt    "There is already an newer version of PlayerMP2.dopus5 installed in the directory !\nDo you want to deinstall it ???")
  76. (set ArexxDirPrompt     "Please select Arexx-Drawer for Playerscripts!")
  77. (set RexxPrompt        "I need Arexx for run the programmes.\n\nKlick 'Proceed' for adding\n'SYS:System/Rexxmast >NIL:'\nto your 'User-Startup' file.")
  78. (set PlayerCopy2Prompt  "Copy sampleplayers ...")
  79. (set LocaleCopyPrompt   "Copy cataloges ...")
  80. (set ButtonCopyPrompt   "Copy buttons ...")
  81. (set FiletypesPrompt    "Copy filetypes ...")
  82. (set GuideCopyPrompt    "Copy guide & pics ...")
  83. (set CDPrefsCopyPrompt    "Copy preferences ...")
  84. (set ToolsCopyPrompt    "Copy tools ...")
  85. (set #t_oldinstaller    (cat
  86.             " You have an old version of the Installer. I'll probably"
  87.             " need version 43.3 or greater. You can continue anyway"
  88.             " but there is no guarantee it will work as it's supposed"
  89.             " to do.\n"
  90.             " Do you wish to continue anyway?"
  91.     ))
  92. (set #t_oldinstallerhelp (cat
  93.             " The version of Installer you use is too old. You can"
  94.             " find a more recent version on the Internet, for example"
  95.             " on Aminet, in the util/misc directory. The current"
  96.             " file name is \"Installer-43_3.lha\":\n"
  97.             " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  98.     ))
  99.  
  100. (set OpusEdit           "Defaultdir for script is not standard (Dopus5:Arexx)!\nEdit Arexx-path Buttons and Filetypes.")
  101. (SET #exitMsg           "For playing .mp2/.mp3 samples:\n\nFirst Player-Setup !\nselect all .mp files and start MPEG-play (See menu 'Button/Load' the button\n'mpegplayer-default'), or play songs over doubleclick.\n\nMuch fun with Script\nfor DirOpus5 wish you\nEckhard Ludwig")
  102. ))
  103.  
  104. ;***************************************************************************
  105.  
  106. (set defaultdest        "DOpus5:Arexx")
  107. (set GuideDir           "Dopus5:")
  108. (set CDPrefsDir         "SYS:Prefs")
  109.  
  110. (if (< @installer-version (+ (* 43 65536) 3))
  111. (
  112.     (if (not (askbool
  113.         (prompt #t_oldinstaller)
  114.         (help #t_oldinstallerhelp)
  115.     ))
  116.     (
  117.         (abort (cat "\n\n" #t_oldinstallerhelp))
  118.     ))
  119. ))
  120.  
  121. (message #intro1 "\n\n" INFO)
  122.  
  123.  
  124. ; check if Directory Opus 5 is already installed
  125. ;***************************************************************************
  126.  
  127. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  128.     ((message Opus5Message)
  129.     (set Opus5path (askdir
  130.     (prompt Opus5DirPrompt)
  131.     (help @askdir-help)
  132.     (default "Work:")))
  133.     (if (not (exists (tackon Opus5path "DirectoryOpus") (noreq)))
  134.        (abort Opus5Help))    
  135.     (makeassign "Dopus5" Opus5path (safe))
  136. ))
  137.  
  138.  
  139. ;***************************************************************************
  140. ; test Dopus5:Arexx exists & versionstest newer version PlayCD_MM.dopus5
  141. ;***************************************************************************
  142.  
  143. (if (= @user-level 2)
  144.   (if (not (exists defaultdest (noreq)))
  145.     (set defaultdest (askdir
  146.     (prompt ArexxDirPrompt)
  147.     (help    @askdir-help)
  148.     (default "Rexx:")
  149. ))))
  150.  
  151. (set @default-dest defaultdest)
  152.  
  153. (if (exists (tackon defaultdest "PlayerMP2.dopus5") (noreq))
  154.    ((set version (getversion (tackon defaultdest "PlayerMP2.dopus5")))
  155.    (if (> version (getversion "Arexx/PlayerMP2.dopus5"))
  156.        (if (not (askbool 
  157.        (prompt Deinstallprompt)
  158.        (help @askbool-help)
  159.        (default 0)))
  160.           (exit (quiet)))
  161. )))
  162.  
  163. ;***************************************************************************
  164. ; copy the files
  165. ;***************************************************************************
  166.  
  167. (copyfiles
  168.    (prompt PlayerCopy2Prompt)
  169.    (help @copyfiles-help)
  170.    (source "arexx")
  171.    (dest defaultdest)
  172.    (pattern "Play#?")
  173.    (confirm "EXPERT")
  174.    (optional "force" "askuser")
  175. )
  176.  
  177. (complete 15)
  178.  
  179. ;***************************************************************************
  180. ;install cataloge
  181. ;***************************************************************************
  182.  
  183. (IF (= @language "All")
  184.     (set Opt 511))
  185.  
  186. (set installchoice
  187.    (askoptions
  188.    (prompt InstallPrompt)
  189.    (help @askoptions-help)
  190.    (choices "Deutsch" "English" "dansk" "français" "italiano" "nederlands" "norsk" "suomi" "svenska")
  191.    (default Opt)
  192. ))
  193.  
  194. (set n 0)
  195.  
  196. (while (<> n 1)
  197.  
  198.   ((set filepat
  199.       (select n "PlayMP2.catalog"))
  200.  
  201.    (set n (+ n 1))
  202.  
  203. (IF (BITAND installchoice 1)
  204.   (copyfiles
  205.    (prompt LocaleCopyPrompt)
  206.    (help @copyfiles-help)
  207.    (source "Locale/Catalogs/deutsch")
  208.    (dest "SYS:Locale/Catalogs/deutsch")
  209.    (pattern filepat)
  210.    (confirm "EXPERT")
  211.    (optional "force" "askuser" "nofail")
  212.   ))
  213.  
  214. (IF (OR (<> @language "deutsch") (BITAND installchoice 2))
  215.   (copyfiles
  216.    (prompt LocaleCopyPrompt)
  217.    (help @copyfiles-help)
  218.    (source "Locale/Catalogs/english")
  219.    (dest "SYS:Locale/Catalogs/english")
  220.    (pattern filepat)
  221.    (confirm "EXPERT")
  222.    (optional "force" "askuser" "nofail")
  223.   ))
  224.  
  225. (IF (BITAND installchoice 4)
  226.   (copyfiles
  227.    (prompt LocaleCopyPrompt)
  228.    (help @copyfiles-help)
  229.    (source "Locale/Catalogs/dansk")
  230.    (dest "SYS:Locale/Catalogs/dansk")
  231.    (pattern filepat)
  232.    (confirm "EXPERT")
  233.    (optional "force" "askuser" "nofail")
  234.   ))
  235.  
  236. (IF (BITAND installchoice 8)
  237.   (copyfiles
  238.    (prompt LocaleCopyPrompt)
  239.    (help @copyfiles-help)
  240.    (source "Locale/Catalogs/français")
  241.    (dest "SYS:Locale/Catalogs/français")
  242.    (pattern filepat)
  243.    (confirm "EXPERT")
  244.    (optional "force" "askuser" "nofail")
  245.   ))
  246.  
  247. (IF (BITAND installchoice 16)
  248.   (copyfiles
  249.    (prompt LocaleCopyPrompt)
  250.    (help @copyfiles-help)
  251.    (source "Locale/Catalogs/italiano")
  252.    (dest "SYS:Locale/Catalogs/italiano")
  253.    (pattern filepat)
  254.    (confirm "EXPERT")
  255.    (optional "force" "askuser" "nofail")
  256.   ))
  257.  
  258. (IF (BITAND installchoice 32)
  259.   (copyfiles
  260.    (prompt LocaleCopyPrompt)
  261.    (help @copyfiles-help)
  262.    (source "Locale/Catalogs/nederlands")
  263.    (dest "SYS:Locale/Catalogs/nederlands")
  264.    (pattern filepat)
  265.    (confirm "EXPERT")
  266.    (optional "force" "askuser" "nofail")
  267.   ))
  268.  
  269. (IF (BITAND installchoice 64)
  270.   (copyfiles
  271.    (prompt LocaleCopyPrompt)
  272.    (help @copyfiles-help)
  273.    (source "Locale/Catalogs/norsk")
  274.    (dest "SYS:Locale/Catalogs/norsk")
  275.    (pattern filepat)
  276.    (confirm "EXPERT")
  277.    (optional "force" "askuser" "nofail")
  278.   ))
  279.  
  280. (IF (BITAND installchoice 128)
  281.   (copyfiles
  282.    (prompt LocaleCopyPrompt)
  283.    (help @copyfiles-help)
  284.    (source "Locale/Catalogs/suomi")
  285.    (dest "SYS:Locale/Catalogs/suomi")
  286.    (pattern filepat)
  287.    (confirm "EXPERT")
  288.    (optional "force" "askuser" "nofail")
  289.   ))
  290.  
  291. (IF (BITAND installchoice 256)
  292.   (copyfiles
  293.    (prompt LocaleCopyPrompt)
  294.    (help @copyfiles-help)
  295.    (source "Locale/Catalogs/svenska")
  296.    (dest "SYS:Locale/Catalogs/svenska")
  297.    (pattern filepat)
  298.    (confirm "EXPERT")
  299.    (optional "force" "askuser" "nofail")
  300.   ))
  301.  
  302. ))
  303.  
  304. (complete 25)
  305.  
  306. (IF (<> @language "deutsch")
  307. (message
  308. (cat    "\n\nIf you want to create own versions of\n"
  309.     "the catalogs please have a look at the\n"
  310.     "distributions Locale directory. You will\n"
  311.     "find the .cd files there. If you\n"
  312.     "have created you own translations, please\n"
  313.     "don`t keep it a secret"
  314. )))
  315.  
  316. ;***************************************************************************
  317. ; copy buttons
  318. ;***************************************************************************
  319.  
  320. (copyfiles
  321.      (source "buttons")
  322.      (dest "DOpus5:buttons")
  323.      (optional "force" "askuser")
  324.      (safe)
  325.      (pattern "#?")
  326.      (files)
  327. )
  328.  
  329. (complete 40)
  330.  
  331. ;***************************************************************************
  332. ; copy filetypes
  333. ;***************************************************************************
  334.  
  335. (copyfiles
  336.    (prompt FiletypesPrompt)
  337.    (help @copyfiles-help)
  338.    (source "filetypes")
  339.    (dest "DOpus5:filetypes")
  340.    (optional "force" "askuser")
  341.    (confirm "EXPERT")
  342.    (pattern "#?")
  343.    (files)
  344. )
  345.  
  346. ; Delete Old MPEG-Filetype
  347. (delete "DOpus5:Filetypes/Compressed sound, MPEG"
  348.    (optional "force")
  349. )
  350.  
  351. (complete 55)
  352.  
  353. ;***************************************************************************
  354. ; copy tools
  355. ;***************************************************************************
  356.  
  357. (copyfiles
  358.    (prompt ToolsCopyPrompt)
  359.    (help @copyfiles-help)
  360.    (source "c")
  361.    (dest "SYS:C")
  362.    (pattern "#?")
  363.    (optional "force" "askuser")
  364.    (confirm "EXPERT")
  365.    (files)
  366. )
  367.  
  368. (complete 65)
  369.  
  370. ;***************************************************************************
  371. ; ADD REXX TO USER-STARTUP
  372. ;***************************************************************************
  373.  
  374. (if
  375.     (startup "ARexx"
  376.         (prompt RexxPrompt)
  377.         (help @startup-help)
  378.         (command "SYS:System/RexxMast >NIL:")
  379.     )
  380.     (run "SYS:System/RexxMast >NIL:")
  381. )
  382.  
  383. (complete 75)
  384.  
  385. ;***************************************************************************
  386. ; set guidedir
  387. ;***************************************************************************
  388.  
  389. (message GuidePrompt)
  390. (if (>= @user-level 1)
  391. (set GuideDir (askdir
  392.     (prompt GuideDirPrompt)
  393.     (help    @askdir-help)
  394.     (default "DOpus5:")
  395. )))
  396.  
  397. ;***************************************************************************
  398. ; install guide
  399. ;***************************************************************************
  400.  
  401. (copyfiles
  402.     (prompt    GuideCopyPrompt)
  403.     (help    @copyfiles-help)
  404.         (source "Docs")
  405.         (dest (tackon GuideDir "Docs"))
  406.         (confirm "EXPERT")
  407.      (pattern "#?")
  408.         (optional "force" "askuser")
  409.         (files)
  410.     (infos)
  411. )
  412.  
  413.  
  414. (copyfiles
  415.     (source "Docs.info")
  416.         (dest GuideDir)
  417.         (optional "force" "askuser")
  418. )
  419.  
  420. (complete 90)
  421.  
  422. ;***************************************************************************
  423. ; set Prefsdir
  424. ;***************************************************************************
  425.  
  426. (message CDPrefsPrompt)
  427. (if (>= @user-level 1)
  428. (set CDPrefsDir (askdir
  429.     (prompt CDPrefsDirPrompt)
  430.     (help    @askdir-help)
  431.     (default "SYS:PREFS")
  432. )))
  433.  
  434. (copyfiles
  435.     (prompt    CDPrefsCopyPrompt)
  436.     (help    @copyfiles-help)
  437.         (source "Player-Setup")
  438.         (dest CDPrefsDir)
  439.         (confirm "EXPERT")
  440.      (pattern "#?")
  441.         (optional "force" "askuser")
  442.         (files)
  443.     (infos)
  444. )
  445.  
  446.  
  447. (if (<> 1 (exists "SYS:C/Installer" (noreq)))
  448.  (copyfiles
  449.     (source "Installer")
  450.         (dest "SYS:C")
  451.         (optional "force" "askuser")
  452.   ))
  453.  
  454.  
  455. (complete 100)
  456.  
  457. (if (<> defaultdest "DOpus5:Arexx")
  458.     (message OpusEdit))
  459.  
  460. (exit #exitMsg)
  461.